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LINKS TO PAGE ROUTINE 


DECUS Program Library Write-up 


DECUS NO. 8-548 


Provides convenient numbered pages in Pass 3 listing of assemblers, and for output 
of Reverse Assembler, without the necessity of punching tape and reading it again 
through the Page Routine. With MACRO-8, output will halt after body of the listing, 
and "Continue" must be pressed to get symbol table. Assembler links are furnished 
in two versions each, with main program in either field 1 or field 0 . 






6026 

6027 

6030 


6052 

6053 

6054 


6174 

6175 

6176 


62 50 
62 51 
6252 
62 53 
62 54 
6255 
62 56 
62 57 
6260 

62 61 
6.2 62 

6263 

6264 

6265 
5266 

6267 

6270 

6271 

62 72 

6273 

6274 

6275 

6276 

6277 

6300 

6301 

6302 

6303 

6304 
63C5 


/ 

/PATCH TO LINK THE REVERSE ASSEMBLER TO THE 
/PAGE ROUTINE AT *6000 

/THIS LINK MAT BE USED WITH PAGE ROUTINE AND MAIN 
/PROGRAM IN THE SAME FIELD. 

/FROM DATA RESEARCH ASSOCIATES.* WAYLANU.* MASS. 

/BY LEENDERT PAUL GEFFEN 

*6026 

5774 PI>UMP I LI 

7402 HLT /ERROR HALT 

1376 TAD S2 

*6052 

5775 P2j UMP I L2 

7402 HLT /ERROR HALT ' 

1376 TAD S2 

*6174 
6261 LIjRI 
6272 L2>R2 

0000 S2* 0 

*6250 

7450 SIjSNA 
5274 UMP 13 
3703 DCA I L3 
1305 HI*TAD S3 
7450 SNA 
5704 UMP I L4 
7700 SMA CLA 

5701 UMP I II 

5702 UMP I 12 

1305 RIjTAD S3 
7450 SNA 
5267 UMP A3 
7326 CLA CLL CML RTL 

3305 BjDCA S3 
5677 UMP I D1 

7326 A3jCLA CLL CML RTL 
3305 DCA S3 
52 53 UMP H1 

7330 R2jCLA CLL CML RAR 
5265 UMP B 

3305 13jDCA S3 

7404 OSR 
5700 UMP I D2 
0031 D1.A1+3 

0236 D2*A2+1 

6030 11>P1+2 

6054 12jP2+2 

6176 L3>S2 

6000 L4j6000 /START OF PAGE ROUTINE 

0000 S3j 0 


2 





0235 

5430 

0026 

5430 

0027 

7408 

0030 

6250 

A1 

0026 

A 2 

0235 

A3 

6267 

E 

6265 

D1 

6277 

D2 

6300 

HI 

6253 

11 

6301 

12 

6302 

13 

6274 

LI 

6174 

L2 

6175 

L3 

6303 

L4 

6304 

L5 

0030 

PI 

6026 

P2 

6052 

R1 

6261 

R2 

6272 

SI 

62 50 

S2 

6176 

S3 

6305 


*0235 

A2> JMP I L5 
*0026 

A1 * JMP I L5 

hLT /ERROR HAL 

L5; SI 


T 



/ 


/ 

/PATCH TO LINK PAL-III TO THE FAGE RROUTINE AT *6000 
/ 


FIELD 1 




*6026 

6 0 2 6 

5774 

P1*JNF I LI 

(>0c-7 

7402 

HL1 /ERROR HALT 

6030 

1376 

TAD 52 



*6052 

60 52 

5775 

P2*JMF I L2 

6053 

7402 

HLT /ERROR HALT 

6064 

13 76 

I AD 52 



*6174 

61 7 4 

6261 

Ll/fil 

6 i 7 5 

6273 

L c * A 2 

6176 

0000 

S2 * 0 



*6250 

6050 

745C 

51*SNA 

62 u i 

5275 

Ui'.P 13 

62 SP 

3705 

DC A I L3 

>253 

1307 

HI * TAL S3 

6254 

74 50 

5 NA 

4255 

5706 

Ui'iP I L4 

6256 

7700 

SEA CLA 

6257 

5703 

UNP I 11 

6 £60 

5704 

JEP I 12 

6261 

1307 

R1 * T AL S3 

6262 

7450 

SNA 

6263 

5270 

JEP A3 

6264 

7326 

CLA CLL CEL r.lL ’ 

6265 

3307 

8* DCA S3 

6266 

6203 

CDF CIF 

6267 

5701 

JMP I D1 

6270 

7326 

A3*CLA CLL CeL RTL 

6271 

3307 

DCA S3 

6272 

52 53 

JEP Hi 

6273 

7330 

R2*CLA CLL CEL RAR 

6274 

5265 

JEP E> 

6275 

3307 

13*DCA S3 

6276 

7404 

GSR 

627 7 

6203 

CDF CIF 

6300 

5702 

JMP I D2 

6301 

0365 

D1* A1+3 

6302 

0215 

D2*A2+1 

6303 

6030 

11 * PI+2 

6304 

6054 

I2*P2+2 

6305 

6176 

L3*S2 

6 306 

6000 

L4* 6000 /START OF 

6307 

0000 

S3* 0 


page ROUTINE 


FIELD 0 


4 



m in </; 


0214 

*0214 

5362 A2>vJivjp 

Al 

0362 

*0362 

6213 A1> C DF 

GIF 10 

0363 

5764 JMP I 

• +1 

0364 

6250 SI 


AI¬ 

0362 


MS 

0214 


A3 

6270 


t • 

6265 


LI 

6301 


D2 

6302 


HI 

6253 


11 

6303 


12 

6304 


13 

6275 


LI 

6174 


L2 

6175 


L3 

6305 


L4 

6306 


PI 

6026 


f 2 

6052 


HI 

6261 


n£ 

6273 


61 

6250 


S2 

6176 


S3 

6307 




6026 

6027 

6030 


6052 

6053 

6054 


6174 

6175 

6176 


6250 

6251 

6252 

6253 

6254 

6255 

6256 
62 57 
6260 

6261 

6262 

6263 

.6264 

6265 

6266 
6267 

6270 

6271 

6272 

62 73 

6274 

6275 

6276 

6277 

6300 

6301 

6302 

6303 

6304 

6305 

6306 

6307 


/ 

/PATCH LINKING PAL III ON PAGE ONE TO PAGE ROUTINE AT *06000 
FIELD 0 

*6026 

5774 P1 *JMP I LI 

7402 HLT /ERROR HALT 

1376 TAD S2 

*6052 

5775 P2* JMP I L2 

7402 HLT /ERROR HALT 

1376 TAD 32 

*6174 
6261 LI *R1 
6273 L2* R2 

0000 52*0 

*62 50 

7450 SI*SNA 
5275 JMP 13 
3705 DCA I L3 
1307 HI*TAD S3 
7450 SNA 
5706 JMP I L4 
7700 S-'iA CLA 

5703 JMP I II 

5704 JMP I 12 

1307 nl* TAD S3 
7450 SNA 
5270 JMP A3 
7326 CLA CLL CML RTL 

3307 B* DCA S3 
6213 CDF CIF 10 

5701 JMP I D1 

7326 A3*CLA CLL CML RTL 

3307 DCA S3 
5253 JMP HI 

7330 R2*CLA CLL CML RAR 

5265 JMP B 

3307 13*DCA S3 

7404 OSR 

6213 CDF CIF 10 

5702 JMP I D2 

0365 D1*A1+3 
0215 D2*A2+1 

6030 11 * P1+2 

6054 12* P2+2 

6176 L3*S2 

6000 L4* 6000 /START OF PAGE ROUTINE 

0000 S3* 0 

FIELD 1 


6 




0214 

*0214 

5362 A2*JMP 

A1 

0362 

*0362 

6203 AUCDF 

C IF 

0363 

5764 JtfP I 

• + 1 

0364 

6250 SI 


A1 

0362 


A 2 

0214 


A3 

6270 


B 

6265 


01 

6301 


02 

6302 


HI 

6253 


11 

6303 


12 

6304 


13 

6275 


LI 

6174 


L2 

6175 


L3 

6305 


L4 

6306 


PI 

6026 


F2 

6052 


m 

6261 


R2 

6273 


SI 

62 50 


S2 

6176 


S3 

6307 


P 




7 



/ 

/ 

/PATCH TO LINK MACRO-8 TO THE PAGE ROUTINE AT *6000 
/ 


FIELD 1 


• 

6026 

5774 

*6026 

PboMP I LI 


6027 

7402 

HLT /ERROR 

HALT 

6030 

1376 

TAD S2 


6052 

5775 

*6052 

P2* JMP I L2 


6053 

7402 

HLT /ERROR 

HALT 

6054 

1376 

TAD S2 


6174 

f 

6261 

*6174 

LLR1 


6175 

6273 

L2*R2 


6176 

0000 

S2*0 


62 50 

7450 

*62 50 

SI* SNA 


6251 

5275 

JMP 13 


6252 

3705 

DCA I L3 


6253 

1307 

HI*TAD S3 


6254 

7450 

SNA 


6255 

5706 

JMP I L4 


6256 

7700 

SMA CLA 


6257 

5703 

JMP I 11 


6260 

5704 

JMP I 12 


6261 

1307 

R1 * TAD S3 


6262 

7450 

SNA 


6263 

5270 

JMP A3 

. > 

6264 

7326 

CLA CLL CML RTL 

6265 

3307 

B* DCA S3 


6266 

6203 

CDF CIF 


6267 

5701 

JMP I D1 


6270 

7326 

A3*CLA CLL CML 

RTL 

6271 

3307 

DC A S3 


6272 

5253 

JMP HI 


6273 

7330 

R2* CLA CLL CML 

RAR 

62 74 

5265 

JMP B 


6275 

3307 

13* DCA S3 


6276 

7404 

OSR 


6277 

6203 

CDF CIF 


6300 

5702 

JMP I D2 


6301 

2604 

D1*A1+3 


6302 

0214 

D2*A2+1 


6303 

6030 

11*P1+2 


6304 

6054 

I2*P2+2 


6305 

6176 

L3*S2 


6306 

6000 

L4* 6000 

/START OF PAGE ROUTINE 

6307 

0000 

S3* 0 


FIELD 0 
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*0005 

0005 

2601 

A0*A1 



*0213 

0213 

5405 

A2»JMP I AO 



*2601 

2601 

6213 

A1*CDF CIF 10 

2602 

5603 

JMP I .+1 

2603 

6250 

SI 


AO 

0005 

A1 

2601 

A2 

0213 

A3 

6270 

B 

6265 

D1 

6301 

D2 

6302 

HI 

6253 

11 

6303 

12 

6304 

13 

6275 

LI 

6174 

L2 

6175 

L3 

N 6305 

L4 

6306 

PI 

6026 

P2 

6052 

R1 

6261 

R2 

6273 

SI 

6250 

S2 

6176 

S3 

6307 



p 




/PATCH TO LINK MACHO-6 
FIELD 0 

IN 

FIELD 1 TO PAGE ROUTINE AT *06000 



*6026 



6026 

5774 

PI*JMP I LI 



6027 

7402 

HLT /ERROR HALT 



6030 

1376 

TAD S2 





*6052 



6052 

5775 

P2*JMP I L2 



6053 

7402 

HLT /ERROR HALT 



60 54 

1376 

TAD S2 




' 

*6174 



6174 

6261 

LI *R1 



6175 

6273 

L2*R2 



6176 

0000 

S2* 0 





*6250 



6250 

7450 

SI*SNA 



6251 

5275 

JMP 13 



6252 

3705 

DCA I L3 



62 53 

1307 

HI * TAD S3 



62 54 

7450 

SNA 



6255 

5706 

JMP I L4 



6256 

7700 

5MA CLA 



6257 

5703 

JMP I 11 



6260 

5704 

JMP I 12 



6261 

1307 

R1 * TAD S3 



6262 

7450 

SNA 



6263 

5270 

JMP A3 



6264 

7326 

CLA CLL CML RTL 



6265 

3307 

B* DCA S3 



6266 

6213 

CDF CIF 10 



6267 

5701 

JMP I D1 



6270 

7326 

A3*CLA CLL CML RTL 



62 71 

3307 

DCA S3 



6272 

5253 

JMP HI 



6273 

7330 

R2* CLA CLL CML RAR 



6274 

5265 

JMP B 



6275 

3307 

13* DCA S3 



6276 

7404 

OSR 



6277 

6213 

CDF CIF 10 



6300 

5702 

JMP I D2 



6301 

2604 

DMA1+3 



6302 

0214 

D2*A2+1 



6303 

6030 

11 * PI+2 



6304 

6054 

I2*P2+2 



6305 

6176 

L3* S2 



6306 

6000 

L4* 6000 /START 

OF 

PAGE ROUTINE 

6307 

0000 

S3* 0 




FIELD 1 


10 




0005 

*0005 

2601 AO*Al 

u213 

+0213 

5405 A2* I AO 

ci 601 

*2601 

6203 Al* CDF CIF 

L; ('U ‘2 

5603 JMP I .+1 

2603 

6250 Si 

AO 

0005 

A 1 

2601 

A2 

0213 

A3 

6270 

B 

6265 

D1 

6301 

D2 

6302 

HI 

6253 

11 

6303 

12 

6304 

13 

6275 

LI 

6174 

L2 

6175 

L3 

6305 

L4 

6306 

rl 

6026 

P2 

6052 

ul 

6261 

ii 

6273 

. 1 

62 50 

6'i 

6176 

33 

6307 






